home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / PRTFLOP.SC < prev    next >
Text File  |  1992-03-14  |  3KB  |  129 lines
  1. ;--------------------------------------------------PRTFLOP.SC
  2. ;------------------DISPLAY REPORT OPTIONS AND PRINT REPORTS.
  3. STYLE ATTRIBUTE 30
  4. CLEAR
  5. @10,15
  6. ?? "****************************************************"
  7. @11,15
  8. ?? "*  SELECT A REPORT FORM, FROM THE ABOVE CHOICES    *"
  9. @12,15
  10. ?? "*  TO PRINT ON. THE NEXT SCREEN WILL GIVE YOU      *"
  11. @13,15
  12. ?? "*     QUERY CHOICES TO SELECT INFORMATION          *"
  13. @14,15
  14. ?? "*         TO FILL THAT REPORT FORM.                *"
  15. @15,15
  16. ?? "****************************************************"
  17.  
  18. SHOWMENU
  19.    "LIST" : "GET ENTIRE LISTING OF FILES AND DISKETTES",
  20.    "CATEGORY" : "GET LIST OF ONE CATEGORY OF FILES",
  21.    "NONE" : "RETURN TO MAIN MENU"
  22. TO RCHOICE
  23.  
  24. ;--------------------- IF NO REPORT SELECTED RETURN TO MAIN MENU.
  25. IF RCHOICE = "NONE" THEN
  26.    CLEAR
  27.    PLAY "FLOPPY"
  28. ENDIF
  29.  
  30. ;--------------------DISPLAY QUERY OPTIONS
  31. CLEAR
  32. @10,11 ?? "*****************************************************"
  33. @11,11 ?? "*      SELECT <LIST> TO USE COMPLETE LIST REPORT    *"
  34. @12,11 ?? "*  SELECT <CATEGORY> TO USE SINGLE CATEGORY REPORT  *"
  35. @13,11 ?? "*****************************************************"
  36.  
  37. SHOWMENU
  38.     "ALL" : "GET A LIST OF ALL FILES",
  39.     "SELECT" : "SPECIFY CATEGORY",
  40.     "EXIT" : "EXIT TO MAIN MENU"
  41. TO QCHOICE
  42.  
  43.  
  44. ;-----------BRING UP QUERY FORM,AND
  45. ;-----------AND FILL IN ALL FIELDS WITH CHECKPLUS.
  46. MENU {ASK}{FLOPPIES}CHECKPLUS
  47.  
  48. ;------------ASK FOR QUERY INFORMATION,
  49. ;------------AND FILL IN FORM.
  50. STYLE ATTRIBUTE 30
  51. SWITCH
  52.    CASE QCHOICE = "EXIT" : PLAY "FLOPPY"
  53.    CASE QCHOICE = "SELECT" :
  54.         CLEAR
  55.         @ 12,10
  56.  
  57.         ?? "ENTER CATEGORY FOR REPORT (eg. GAM,UTL,DB) "
  58.         @ 14,10
  59.         ?? "OR JUST HIT ENTER TO EXIT : "
  60.         ACCEPT "A5" TO S
  61.  
  62.         IF ISBLANK(S) THEN PLAY "FLOPPY"
  63.         ENDIF
  64.  
  65. [CATEGORY] = S
  66.  
  67. DO_IT!
  68. ENDSWITCH
  69. CLEAR
  70. STYLE ATTRIBUTE 142
  71. CURSOR OFF
  72. @ 24,1 CLEAR EOL
  73. ?? "SCANNING FILES...."
  74.  
  75. ;----------IF ANSWER TABLE EMPTY,
  76. ;----------CANCEL OPERATION.
  77. IF (NRECORDS("ANSWER")=0) THEN
  78.    BEEP BEEP BEEP
  79.    @ 24,1 CLEAR EOL
  80.    ?? "NO RECORDS MATCHED THE REQUESTED QUERY !"
  81.    SLEEP 5000
  82.    CLEARALL
  83.    CLEAR
  84.    RETURN
  85. ENDIF
  86. ;--------COPY ANSWER TO REPORTS.
  87. {TOOLS}{COPY}{JUSTFAMILY}{FLOPPIES}{ANSWER}
  88. {REPLACE}
  89.  
  90. ;----------------------CHECK PRINTER.
  91. WHILE PRINTERSTATUS() = FALSE
  92. CLEAR
  93. STYLE ATTRIBUTE 206
  94. @ 10,15
  95. TEXT
  96. YOUR PRINTER IS NOT READY !!!
  97. ENDTEXT
  98. STYLE ATTRIBUTE 30
  99. ;-------------------SET UP MENU LOOP
  100. CHOICE = 1
  101. WHILE CHOICE = 1
  102.       ;----------------SHOW OPTION MENU.
  103.       SHOWMENU
  104.           "CONTINUE" : "PREPARE PRINTER AND SELECT THIS",
  105.           "EXIT" : "RETURN TO PRINT MENU"
  106.       TO CHOICE
  107.       ;------------------PLAY SCRIPT OF CHOICE.
  108.       SWITCH
  109.          CASE CHOICE = "CONTINUE" :
  110.           choice = 0
  111.          case choice = "exit" :
  112.           play "PRTFLOP"
  113.      ENDSWITCH
  114. ENDWHILE
  115. endwhile
  116. ;---------------------PRINT REPORT
  117. STYLE
  118. CLEAR
  119. ? "PRINTING REQUESTED REPORT....."
  120. SWITCH
  121.      CASE RCHOICE = "LIST" :
  122.           REPORT "ANSWER" "1"
  123.      CASE RCHOICE = "CATEGORY" :
  124.           REPORT "ANSWER" "2"
  125. ENDSWITCH
  126.  
  127. CLEARALL
  128. CLEAR
  129.